//   
procedure MinMaxInArray (RqArray   : array of integer;
                  var MinResult : double;
                  var MaxResult : double;
                      RqReport  : TMemo);
var Ind : integer;
begin
  MinResult := RqArray[Low(RqArray)];
  MaxResult := MinResult;
  for Ind := Low(RqArray) to High(RqArray) do
  begin
    if RqArray[Ind] < MinResult
    then MinResult := RqArray[Ind];
    if RqArray[Ind] > MaxResult
    then MaxResult := RqArray[Ind];
  end;
  // 
  RqReport.Lines.Add('');
  RqReport.Lines.Add('  :');
  RqReport.Lines.Add(FloatToStr(MinResult));
  RqReport.Lines.Add('  :');
  RqReport.Lines.Add(FloatToStr(MaxResult));
end;  // of procedure